home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / assembly / abakus.lha / Abakus / Demos / Lotto.a < prev    next >
Text File  |  1995-07-25  |  2KB  |  63 lines
  1.  
  2.           module cli
  3.           Input stdin
  4.           Output stdout
  5.  
  6.             Randomize_Timer        ;Startwert für RND setzen
  7.  
  8. *_________ sechs Lottozahlen zwischen 1 und 49 ermitteln ________________
  9.  
  10.           for.b [i] zz = #1 to #6    ; 6 mal durchlaufen
  11.  
  12.             RND [ #1, #49 ] Zahl
  13.             Lea Zahlen,a4
  14.             set7 6                   ; Abakus intern !!
  15.                                      ; nimmt als Vergleichsregister nun d6 statt d7
  16.  
  17. *____ nachsehen ob Zahl schonmal vorkam __________
  18.  
  19.             Select.l Zahl
  20.                     Case.l (a4)+ Goto Abermals
  21.                     Case.l (a4)+ Goto Abermals
  22.                     Case.l (a4)+ Goto Abermals
  23.                     Case.l (a4)+ Goto Abermals
  24.                     Case.l (a4)  Goto Abermals  ; wenn ja Gehe zu Label Abermals
  25.  
  26.  
  27.              clear d0
  28.              Let.b d0 = zz - #1 + d0 + d0
  29.  
  30.              lea Zahlen,a4
  31.              move.l Zahl,0(a4,d0)
  32. Lotto
  33.           Next [i]
  34.  
  35. *____ Dezimalzahlen in String umwandeln und in Stdout Window ausgeben ____
  36.  
  37.           lea Zahlen,A3
  38.           Again [a] #6
  39.              Clear.l String
  40.              Clear.l String2
  41.              Str.l (a3)+,#String
  42.              WriteS #String
  43.              WriteS #LF #1
  44.           End Again [a]
  45.  
  46.           Return           ; Programm Ende
  47.  
  48.  
  49. Abermals
  50.           dec.b zz         ; Schleifenzähler um eins runter
  51.           Goto Lotto
  52.  
  53.  
  54. *__________ Daten ______________________________
  55.  
  56. zz        dc.b 0
  57. LF        dc.b 10
  58.  
  59.           even
  60. Zahl      ds.l 1
  61. Zahlen    ds.l 6
  62. String    ds.l 1
  63. String2   ds.l 1